#!/usr/bin/env perl
use strict;

my $seq = shift @ARGV;
$seq = reverse $seq;
$seq =~ tr/ACGTRYMKSWBDHVNacgtrymkswbdhvn/TGCAYRKMSWVHDBNtgcayrkmswvhdbn/;
print "$seq\n";
